home *** CD-ROM | disk | FTP | other *** search
/ El Mac 7 / El Mac 7.iso / De la revista / Ghostscript / files / gs_dps1.ps < prev    next >
Encoding:
Text File  |  1994-04-25  |  6.4 KB  |  226 lines  |  [TEXT/gsVR]
  1. %    Copyright (C) 1990, 1991, 1993, 1994 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This file is part of Aladdin Ghostscript.
  4. % 
  5. % Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
  6. % or distributor accepts any responsibility for the consequences of using it,
  7. % or for whether it serves any particular purpose or works at all, unless he
  8. % or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
  9. % License (the "License") for full details.
  10. % 
  11. % Every copy of Aladdin Ghostscript must include a copy of the License,
  12. % normally in a plain ASCII text file named PUBLIC.  The License grants you
  13. % the right to copy, modify and redistribute Aladdin Ghostscript, but only
  14. % under certain conditions described in the License.  Among other things, the
  15. % License requires that the copyright notice and this notice be preserved on
  16. % all copies.
  17.  
  18. % Initialization file for analogs of Display PostScript functions
  19. % that are also included in Level 2.
  20. % When this is run, systemdict is still writable,
  21. % but (almost) everything defined here goes into level2dict.
  22.  
  23. level2dict begin
  24.  
  25. % ------ Virtual memory ------ %
  26.  
  27. /currentshared /.currentglobal load def
  28. /scheck /.gcheck load def
  29. %****** FOLLOWING IS WRONG ******
  30. /shareddict currentdict /globaldict .knownget not { 20 dict } if def
  31.  
  32. % Global and LocalFontDirectory must remain in systemdict
  33. % even if we temporarily exit Level 2 mode.
  34.  
  35. end                % level2dict
  36. systemdict begin
  37.  
  38. /SharedFontDirectory FontDirectory .gcheck
  39.  { .currentglobal false .setglobal
  40.    /LocalFontDirectory FontDirectory dup maxlength dict copy def
  41.    .setglobal FontDirectory
  42.  }
  43.  { /LocalFontDirectory FontDirectory def
  44.    50 dict
  45.  }
  46. ifelse def
  47.  
  48. end                % systemdict
  49. level2dict begin
  50.  
  51. % setshared must rebind FontDirectory to the appropriate one of
  52. % Local or SharedFontDirectory.
  53.  
  54. /.setglobal
  55.  { .setglobal
  56.    //systemdict /FontDirectory .currentglobal
  57.     { //SharedFontDirectory }
  58.     { //systemdict /LocalFontDirectory get }    % can't embed ref to local VM
  59.    ifelse .forceput
  60.  } .bind odef        % must bind .forceput and .setglobal
  61.             % even if NOBIND in effect
  62. /setshared /.setglobal load def
  63. .currentglobal setshared
  64.  
  65. % ------ Fonts ------ %
  66.  
  67. /selectfont
  68.  { exch findfont exch
  69.    dup type /arraytype eq { makefont } { scalefont } ifelse
  70.    setfont
  71.  } odef
  72. % Undefinefont has to take local/global VM into account.
  73. /undefinefont
  74.  { FontDirectory 1 index undef
  75.    .currentglobal
  76.     {        % Current mode is global; delete from local directory too.
  77.       systemdict /LocalFontDirectory .knownget
  78.        { exch undef }
  79.        { pop }
  80.       ifelse
  81.     }
  82.     {        % Current mode is local; if there was a shadowed global
  83.         % definition, copy it into the local directory.
  84.       systemdict /SharedFontDirectory .knownget
  85.        { 1 index .knownget
  86.       { FontDirectory 3 1 roll put }
  87.       { pop }
  88.      ifelse
  89.        }
  90.       if
  91.     }
  92.    ifelse
  93.  } odef
  94.  
  95. % If we load a font into global VM within an inner save, the restore
  96. % will delete it from FontDirectory but not from SharedFontDirectory.
  97. % We have to handle this by making restore copy missing entries from
  98. % SharedFontDirectory to FontDirectory.  Since this could slow down restore
  99. % considerably, we define a new operator .dictcopynew for this purpose.
  100. /restore
  101.  { //restore
  102.    //SharedFontDirectory //systemdict /LocalFontDirectory get .dictcopynew pop
  103.  } bind odef
  104.  
  105. % ------ Halftones ------ %
  106.  
  107. /.makestackdict
  108.     { { counttomark -1 roll } forall .dicttomark
  109.     } bind def
  110. /currenthalftone
  111.     { mark .currenthalftone
  112.        { { exch pop }        % halftone
  113.          { /HalftoneType 1        % screen
  114.         { /Frequency /Angle /SpotFunction }
  115.            .makestackdict
  116.          }
  117.          { /HalftoneType 2        % colorscreen
  118.         { /RedFrequency /RedAngle /RedSpotFunction
  119.           /GreenFrequency /GreenAngle /GreenSpotFunction
  120.           /BlueFrequency /BlueAngle /BlueSpotFunction
  121.           /GrayFrequency /GrayAngle /GraySpotFunction
  122.         }
  123.            .makestackdict
  124.          }
  125.        }
  126.       exch get exec
  127.     } odef
  128. % Define sethalftone so it converts all other types to type 5.
  129. /.sethalftoneRGBV    % <dict> <type> <keys> <keysRGBV>
  130.     { 4 -1 roll exch { 1 index exch get exch } forall 15 1 roll
  131.       14 -2 roll mark 15 1 roll { /Gray /Blue /Green /Red }
  132.        {        % stack: v0 v1 v2 type keys comp
  133.          mark
  134.          2 index 0 get 8 -1 roll
  135.          4 index 1 get 9 -1 roll
  136.          6 index 2 get 10 -1 roll
  137.             % stack: type keys comp mark k0 v0 k1 v1 k2 v2
  138.          /HalftoneType 10 index .dicttomark
  139.          counttomark 2 roll
  140.        }
  141.       forall pop pop
  142.       /Default 1 index .dicttomark .sethalftone5
  143.     } bind def
  144. /sethalftone
  145.     { dup /HalftoneType get 1 sub
  146.        {  { mark /Default 2 index .dicttomark .sethalftone5 }
  147.           { 1 { /Frequency /Angle /SpotFunction }
  148.         { /RedFrequency /RedAngle /RedSpotFunction
  149.           /GreenFrequency /GreenAngle /GreenSpotFunction
  150.           /BlueFrequency /BlueAngle /BlueSpotFunction
  151.           /GrayFrequency /GrayAngle /GraySpotFunction
  152.         } .sethalftoneRGBV
  153.           }
  154.           { mark /Default 2 index .dicttomark .sethalftone5 }
  155.           { 3 { /Width /Height /Thresholds }
  156.         { /RedWidth /RedHeight /RedThresholds
  157.           /GreenWidth /GreenHeight /GreenThresholds
  158.           /BlueWidth /BlueHeight /BlueThresholds
  159.           /GrayWidth /GrayHeight /GrayThresholds
  160.         } .sethalftoneRGBV
  161.           }
  162.           { dup .sethalftone5 }
  163.        } exch get exec
  164.     } odef
  165. % Redefine setscreen and setcolorscreen to recognize halftone dictionaries.
  166. /setscreen
  167.     { dup type /dicttype eq
  168.        { sethalftone pop pop }
  169.        { //setscreen }
  170.       ifelse
  171.     } odef
  172. /setcolorscreen
  173.     { dup type /dicttype eq
  174.        { sethalftone 11 { pop } repeat }
  175.        { //setcolorscreen }
  176.       ifelse
  177.     } odef
  178.  
  179. % ------ User objects ------ %
  180.  
  181. /.localarray where
  182.  { pop }
  183.  { /.localarray
  184.     { currentglobal false setglobal
  185.       exch array exch setglobal
  186.     } bind def
  187.  }
  188. ifelse
  189. /defineuserobject
  190.     { userdict /.UserObjects known
  191.        { 1 index userdict /.UserObjects get length ge
  192.           { 1 index 1 add .localarray userdict /.UserObjects get
  193.         1 index copy pop
  194.         userdict /.UserObjects 3 -1 roll put
  195.           }
  196.          if
  197.        }
  198.        { userdict /.UserObjects 3 index 1 add .localarray put
  199.        }
  200.       ifelse
  201.       userdict /.UserObjects get 3 1 roll put
  202.     } odef
  203. /execuserobject
  204.     { userdict /.UserObjects get exch get exec
  205.     } odef
  206. /undefineuserobject
  207.     { userdict /.UserObjects get exch null put
  208.     } odef
  209.  
  210. % ------ User paths ------ %
  211.  
  212. /upath
  213.     { [ exch {/ucache cvx} if pathbbox /setbbox cvx
  214.       {/moveto cvx} {/lineto cvx} {/curveto cvx} {/closepath cvx}
  215.       pathforall ] cvx
  216.     } odef
  217.  
  218. % Dummy definitions for cache control operators
  219.  
  220. /ucachestatus
  221.     { mark 0 0 0 0 0 } odef
  222. /setucacheparams
  223.     { cleartomark } odef
  224.  
  225. end                % level2dict
  226.